<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="comSub.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="function_charCode.asp" -->

<%
call stylefile()
%>

<BODY class=scrollbar1>
<%
call BoardOlineUserList()

Call conn_Nothing()

sub BoardOlineUserList()
       dim rs,onlinecount,onlinename
       set rs = server.CreateObject("adodb.recordset")
       rs.open "select * from ym_online where onlineboardid='"&request("boardid")&"' order By onlinetime desc",conn,1,1
             if Not rs.Eof then
                   onlinecount = rs.recordCount
                   dim configrs,useronlinecoun,useronlinecounttime
                   set configrs = server.CreateObject("adodb.recordset")
                   configrs.open "select * from option1",conn,1,1
                         if Not configrs.Eof then
                               useronlinecount = configrs("useronlinecount")
                               useronlinecounttime = configrs("useronlinecounttime")
                          End if
                   configrs.close
                   set rconfigrs = Nothing
             End if
%>
             <CENTER>
                         <table border="0" cellspacing="0" cellpadding="0" width="100%" align="center">
                                 <tr><td colspan=6>
                                              <a href="javascript:this.location.reload()"><img src="images/refresh.gif" alt="" border="0"></a>
                                              <span style='FONT-SIZE: 9pt'>
                                              <!--    <img style="cursor:hand" src="images/minus.gif" onclick="showsubmenu(1)">  -->
                                               <b> [</b><%=boardname(request("boardid"))%><b>] </b>עû:</span></tr><tr>
<%
                                               dim i
                                               dim ha 
                                               dim hicount 
                                               ha=1
                                               hicount=0
                                              for i= 1 to rs.recordCount
                                                    onlinename=rs("onlinename")
                                                    if rs("onlinename")<>"ο" then
                                                          zcusernumber=zcusernumber+1
                                                    end if
                                                    if rs("onlinename")="ο" then
                                                           onlinename=""
                                                    end if
                                                    if rs("hidename")=false then
                                                            if onlinename<>"" then
                                                                    Response.Write "<td width=120 height=10>"
                                                                    call userStanding(onlinename)
                                                                    Response.Write "<span style='FONT-SIZE: 9pt'>"
                                                                    if session("tslt_username") = onlinename then
                                                                            Response.Write "<font color=brown>" & onlinename & "</font>"
                                                                    else
                                                                            if MyFriend(onlinename) then
                                                                                     Response.Write "<font color=brown>" & onlinename & "</font>"
                                                                            else
                                                                                      Response.Write  onlinename 
                                                                            end if
                                                                    end if
                                                                    Response.Write "</td>"
                                                                    ha=ha+1
                                                                    if ha>6 then
                                                                           ha=1
                                                                           response.write"<tr>"
                                                                    end if
                                                            end if
                                                    end if
                                                    if rs("hidename")=true then
                                                           hicount=hicount+1
                                                    end if
                                                    rs.MoveNext
                                                    If rs.EOF Then Exit For
                                             next
                                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(0))</SCRIPT>"& onlinecount-zcusernumber &"<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(1))</SCRIPT>"
                                            if hicount<>0 then
                                                   Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(2))</SCRIPT>"& hicount &"<SCRIPT language=Javascript>passwords(promptInfo_bottom_inc(3))</SCRIPT>"
                                            end if
%>
                                    </td></tr>
                          </table>
              </CENTER>
<%
        rs.close
        set rs = Nothing
end sub

%>
</BODY>
